5 GOTO 9100
10 GOSUB 9000
20 A=PEEK (1140)+1
30 IF A=4 OR A=8 OR A=12 OR A=16 OR A=20 OR A=24 OR A=28 THEN 40 ELSE 50
40 GOSUB 9000
45 BEEP:PRINT "ǲƱ.";:INKEY$
50 CLEAR:GOSUB 9000
60 PRINT "1.Ʊ","2.","3.Ǳҹ";
70 I$=INKEY$
80 IF I$="b" THEN 200
90 IF I$="n" THEN 2000
95 IF I$="m" THEN 2660
96 IF ASC(I$)=27 THEN 9660
100 BEEP: GOTO 50 
200 CLEAR:GOSUB 9000
210 PRINT "1.Ʊ","2.ƱԽ";
220 I$=INKEY$
230 IF I$="b" THEN 300
240 IF I$="n" THEN 500
245 IF ASC(I$)=27 THEN 50
250 BEEP: GOTO 200
300 GOSUB 9000
305 CLEAR:PRINT "ҪͶעĲƱ(ÿһֺһ<>):";
320 INPUT "?";A,B,C,D,E
321 GOTO 9500
322 CLS:BEEP:PRINT "Ͷע: ";
323 INPUT "";F
324 GOSUB 9040
325 OPEN B$ FOR INPUT AS #1
326 INPUT #1,O:CLOSE #1
327 O=O-F
328 IF O<0 THEN BEEP:CLS:PRINT "ǱҲ,Ͷעʧ!":INKEY$: GOTO 50
330 OPEN B$ FOR OUTPUT AS #1
332 WRITE #1,O:CLOSE #1
340 GOSUB 9020
345 OPEN A$ FOR APPEND AS #1:CLOSE #1
350 OPEN A$ FOR INPUT AS #1
360 IF EOF(1) THEN 380 ELSE 370
370 CLOSE #1:BEEP:CLS:PRINT "Բ,ѾͶע,ظͶע"
378 I$=INKEY$: GOTO 50
380 CLOSE #1:OPEN A$ FOR OUTPUT AS #1:WRITE #1,A,B,C,D,E,F:CLOSE #1
385 CLEAR:C$="DATE."+CHR$(3)
388 OPEN C$ FOR OUTPUT AS #1:WRITE #1,PEEK (1140)+1:CLOSE #1
490 BEEP:CLS:PRINT "Ͷעɹ,ڽ֮κһնԽ.":INKEY$: GOTO 50
500 A=PEEK (1140)+1
510 IF A=4 OR A=8 OR A=12 OR A=16 OR A=20 OR A=24 OR A=28 THEN 550 ELSE 530
530 BEEP:CLS:PRINT "Բ,첢ǿ,ĵȴ...";:INKEY$: GOTO 50
540 BEEP:CLS:PRINT "Բ,δͶע,ȹƱ...";:INKEY$: GOTO 200
545 BEEP:CLS:PRINT "Բ,ڹƱҽ...";:INKEY$: GOTO 50
550 C$="DATE."+CHR$(3)
551 OPEN C$ FOR APPEND AS #1:CLOSE #1
552 OPEN C$ FOR INPUT AS #1
553 IF EOF(1) THEN 540 ELSE 554
554 INPUT #1,A:CLOSE #1
555 IF A=PEEK (1140)+1 THEN 545 ELSE 556
556 CLEAR:GOSUB 9020
557 OPEN A$ FOR APPEND AS #1:CLOSE #1
558 OPEN A$ FOR INPUT AS #1
560 IF EOF(1) THEN 540 ELSE 580
580 GOSUB 9000
590 CLEAR:BEEP:PRINT "ڵн:"
602 I=INT(RND(1)*10)
604 J=INT(RND(1)*10):IF J=I THEN 604
606 K=INT(RND(1)*10):IF K=I OR K=J THEN 606
608 L=INT(RND(1)*10):IF L=I OR L=J OR L=K THEN 608
610 M=INT(RND(1)*10):IF M=I OR M=J OR M=K OR M=L THEN 610
612 PRINT I;" ";J;" ";K;" ";L;" ";M
620 GOSUB 9020
627 OPEN A$ FOR INPUT AS #1
628 INPUT #1,A,B,C,D,E:CLOSE #1
630 H=0
640 IF A=I OR A=J OR A=K OR A=L OR A=M THEN H=H+1
650 IF B=I OR B=J OR B=K OR B=L OR B=M THEN H=H+1
660 IF C=I OR C=J OR C=K OR C=L OR C=M THEN H=H+1
670 IF D=I OR D=J OR D=K OR D=L OR D=M THEN H=H+1
680 IF E=I OR E=J OR E=K OR E=L OR E=M THEN H=H+1
690 PRINT "";H;""
700 GOSUB 9040 
710 OPEN B$ FOR INPUT AS #1
720 INPUT #1,W
730 CLOSE #1
740 PRINT "׬";
750 GOSUB 9020
760 OPEN A$ FOR INPUT AS #1
770 INPUT #1,A,B,C,D,E,F:CLOSE #1
780 IF H=5 THEN Z=F*1000000
790 IF H=4 THEN Z=F*100
800 IF H=3 THEN Z=F*10
810 IF H<3 THEN Z=0
820 PRINT Z;"ԪǱ";:INKEY$
830 GOSUB 9040 
840 OPEN B$ FOR INPUT AS #1
850 INPUT #1 ,A:CLOSE #1
860 A=A+Z
870 OPEN B$ FOR OUTPUT AS #1
880 WRITE #1,A:CLOSE #1:CLEAR:GOSUB 9020
890 OPEN A$ FOR OUTPUT AS #1:CLOSE #1
900 GOTO 50
2000 CLEAR:GOSUB 9000
2010 PRINT "1.о","2.","3.ֳ";
2020 I$=INKEY$
2030 IF I$="b" THEN 2080
2040 IF I$="n" THEN 3080
2050 IF I$="m" THEN 5000
2055 IF ASC(I$)=27 THEN 50
2060 BEEP: GOTO 2000
2080 CLEAR:GOSUB 9000
2090 PRINT "1.ʹè","2.","3.ﱸ";
2100 I$=INKEY$
2110 IF I$="b" THEN 2150
2120 IF I$="n" THEN 2550
2123 IF I$="m" THEN 3800
2125 IF ASC(I$)=27 THEN 2000
2130 BEEP: GOTO 2080
2150 CLEAR:GOSUB 9000
2160 PRINT "ÿֻʹèҪǱ  90000Ԫ.ֻ?"
2170 INPUT "";P
2180 M=P*90000
2190 GOSUB 9040
2200 OPEN B$ FOR INPUT AS #1 
2210 INPUT #1,A:CLOSE #1
2220 IF A<M THEN 2230 ELSE 2240
2230 BEEP:CLS:PRINT "ǱҲ":CLEAR:INKEY$: GOTO 2750
2240 A=A-M:OPEN B$ FOR OUTPUT AS #1
2250 WRITE #1,A:CLOSE #1
2255 V=PEEK (1766)
2257 POKE 1766,V+P
2260 PRINT "׳ɹ!";:CLEAR:INKEY$: GOTO 2080
2550 GOSUB 9000
2560 PRINT "ֻ軨10000ԪͿԽҼ!...";:I$=INKEY$:CLEAR
2565 GOSUB 9060
2570 IF A<10000 THEN 2580 ELSE 2600
2580 GOSUB 9000
2590 CLEAR:BEEP:PRINT "ǱҲ!":INKEY$: GOTO 2750 
2600 GOSUB 9000
2620 A=A-10000
2630 GOSUB 9610
2650 POKE 1750,255:PRINT "ɹ!":INKEY$:CLEAR: GOTO 50
2660 CLEAR:GOSUB 9000
2670 PRINT "1.ѯ","2.ò"
2680 I$=INKEY$
2690 IF I$="b" THEN 2750
2700 IF I$="n" THEN 2850
2710 IF ASC(I$)=27 THEN 50
2720 BEEP: GOTO 2660
2750 CLEAR:GOSUB 9060
2760 GOSUB 9000
2770 PRINT "ǱΪ:",A;"Ԫ";
2780 INKEY$:CLEAR: GOTO 50
2850 CLEAR:GOSUB 9000
2860 PRINT "˹ǱѾʱõ.ÿοɲ50Ԫ.";:INKEY$
2870 CLEAR:GOSUB 9000
2880 PRINT "Ǳûʱʹñ,޷!";:INKEY$
2890 CLEAR:GOSUB 9000
2900 PRINT "ʼ...":I$=INKEY$
2910 GOSUB 9060 
2920 IF A>0 THEN 2950 ELSE 3000
2950 GOSUB 9060 
2960 BEEP:PRINT "Ǳʣ,޷!":INKEY$: GOTO 2750
3000 GOSUB 9060 
3010 A=A+50 
3020 GOSUB 9610
3030 BEEP:PRINT "ɹ!";:INKEY$: GOTO 2750
3080 GOSUB 9000
3090 BEEP:PRINT "ÿҪ200ԪǱ!":INKEY$
3100 CLEAR:GOSUB 9000
3110 CLEAR:PRINT "1.׫дʼ","2.Ķʼ";
3120 I$=INKEY$
3130 IF I$="b" THEN 3200
3140 IF I$="n" THEN 3500
3150 IF ASC(I$)=27 THEN 50
3160 BEEP:CLEAR: GOTO 3080
3200 GOSUB 9000
3210 GOSUB 9060
3220 IF A<200 THEN 3250 ELSE 3252
3250 BEEP:PRINT "ǱҲ!":INKEY$:CLEAR: GOTO 2750
3252 A=A-200:GOSUB 9610
3253 CLEAR:GOSUB 9000
3254 PRINT "ļ(ĸ):";
3256 INPUT "";M$
3258 D$=M$+"."+CHR$(3)
3260 OPEN D$ FOR APPEND AS #1:CLOSE #1
3262 OPEN D$ FOR INPUT AS #1
3264 IF EOF(1) THEN 3270 ELSE 3265
3265 CLOSE #1:BEEP:CLS:PRINT "ԭļѴ,Ƿ񸲸?(Y/N)";
3266 I$=INKEY$
3267 IF I$="y" THEN 3276 ELSE 3253
3270 CLOSE #1
3276 OPEN D$ FOR OUTPUT AS #1
3285 GOSUB 9000
3286 PRINT "밴ʼ,ÿ밴һ,༭ɺ롰OK.";
3288 I$=INKEY$
3289 CLS
3300 WHILE N$<>"OK"
3310 INPUT ":";N$
3320 WRITE #1,N$
3330 WEND
3340 CLOSE #1
3350 GOSUB 9000
3360 BEEP:PRINT "ɹ!":INKEY$:CLEAR: GOTO 2750
3500 CLEAR:GOSUB 9000
3501 GOSUB 9060
3502 IF A<200 THEN 3503 ELSE 3505
3503 GOSUB 9000
3504 BEEP:CLS:PRINT "ǱҲ!":INKEY$: GOTO 2750
3505 A=A-200:GOSUB 9610
3509 CLEAR:GOSUB 9000
3510 PRINT "ȡ֮ļ(ĸ):";
3520 INPUT "";M$
3530 D$=M$+"."+CHR$(3)
3540 OPEN D$ FOR APPEND AS #1:CLOSE #1
3550 OPEN D$ FOR INPUT AS #1
3564 IF EOF(1) THEN 3570 ELSE 3600
3570 GOSUB 9000
3580 BEEP:PRINT "ԭļ!";:INKEY$: GOTO 3100
3600 IF EOF(1) THEN 3670 ELSE 3620
3620 CLS
3630 INPUT #1,N$
3640 PRINT N$
3650 I$=INKEY$
3660 GOTO 3600 
3670 CLOSE #1
3680 CLS
3690 CLEAR:GOSUB 9000
3700 PRINT "ʾ!";:INKEY$: GOTO 2750
3800 CLEAR:GOSUB 9000
3810 PRINT "ڱݳ浵,RESETʧ.ÿʹҪǱ500Ԫ.";:INKEY$
3820 CLEAR:GOSUB 9060
3830 IF A<500 THEN 3850 ELSE 3900
3850 BEEP:CLS:PRINT "ǱҲ!":INKEY$: GOTO 2750
3900 A=A-500:GOSUB 9610
3910 CLEAR:GOSUB 9000 
3920 PRINT "1.нȱ","2.ָ";
3930 I$=INKEY$
3940 IF I$="b" THEN 4000
3950 IF I$="n" THEN 4500
3960 IF ASC(I$)=27 THEN 2080
3970 BEEP: GOTO 3910
4000 CLEAR:GOSUB 9000 
4005 PRINT "ڱ....";
4010 B$="MAO."+CHR$(3)
4015 OPEN B$ FOR OUTPUT AS #1:CLOSE #1
4020 FOR I=1722 TO 1784
4030 A=PEEK (I)
4040 B$="MAO."+CHR$(3)
4050 OPEN B$ FOR APPEND AS #1
4060 WRITE #1,A
4065 CLOSE #1
4070 NEXT I
4090 BEEP:CLEAR:GOSUB 9000
4100 PRINT "ɹ!":INKEY$: GOTO 2750
4500 CLEAR:GOSUB 9000
4510 PRINT "ڻָ...";
4532 B$="MAO."+CHR$(3)
4540 OPEN B$ FOR INPUT AS #1
4545 FOR I=1722 TO 1784 
4550 INPUT #1,A
4560 POKE I,A
4580 NEXT I
4585 CLOSE #1
4590 CLS:GOSUB 9000
4600 BEEP:PRINT "ָɹ...";:INKEY$: GOTO 2750
5000 CLEAR:GOSUB 9000
5010 PRINT "1.Ļ","2.","3.ֵ","4.ྫ";
5020 I$=INKEY$
5030 IF I$="b" THEN 5100
5040 IF I$="n" THEN 5800
5050 IF I$="m" THEN 7000
5055 IF I$="g" THEN 8000
5060 IF ASC(I$)=27 THEN 50
5070 BEEP: GOTO 5000
5100 GOSUB 9000
5110 PRINT "ÿʹҪǱ200Ԫ,һ޷˳.";:INKEY$
5120 GOSUB 9060
5130 IF A<200 THEN 3850 ELSE 5140
5140 A=A-200 :GOSUB 9610
5150 CLEAR:GOSUB 9000
5160 PRINT "1.ȫ˸","2.˸";
5170 I$=INKEY$
5180 IF I$="b" THEN 5250
5190 IF I$="n" THEN 5550
5200 IF ASC(I$)=27 THEN 5000
5210 BEEP: GOTO 5150
5250 FOR I=1 TO 50000000
5260 BOX 1,1,180,80,1
5270 CLS
5280 NEXT I
5290 GOTO 50
5550 A=INT(RND(1)*10)
5560 IF A>5 OR A<1 THEN 5550
5570 B=INT(RND(1)*100)
5580 IF B>19 OR B<1 THEN 5570
5590 CLS:LOCATE A,B:PRINT "";
5600 CLEAR: GOTO 5550
5800 GOSUB 9000
5810 PRINT "ÿʹҪǱ200Ԫ.";:INKEY$
5820 GOSUB 9060
5830 IF A<200 THEN 3850 ELSE 5840
5840 A=A-200:GOSUB 9610
5850 CLEAR:GOSUB 9000
5860 PRINT "   Q W E R T Y U","   A S D F G H J","   Z X C V B N M",
5870 PRINT "밴ϰ!";
5880 CLEAR
5890 INPUT$=INKEY$
5900 IF INPUT$="q" THEN PLAY "O1C"
5910 IF INPUT$="w" THEN PLAY "O1D"
5920 IF INPUT$="e" THEN PLAY "O1E"
5930 IF INPUT$="r" THEN PLAY "O1F"
5940 IF INPUT$="t" THEN PLAY "O1G"
5950 IF INPUT$="y" THEN PLAY "O1A"
5960 IF INPUT$="u" THEN PLAY "O1B"
5970 IF INPUT$="a" THEN PLAY "O2C"
5980 IF INPUT$="s" THEN PLAY "O2D"
5990 IF INPUT$="d" THEN PLAY "O2E"
6000 IF INPUT$="f" THEN PLAY "O2F"
6010 IF INPUT$="g" THEN PLAY "O2G"
6020 IF INPUT$="h" THEN PLAY "O2A"
6030 IF INPUT$="j" THEN PLAY "O2B"
6040 IF INPUT$="z" THEN PLAY "O3C"
6050 IF INPUT$="x" THEN PLAY "O3D"
6060 IF INPUT$="c" THEN PLAY "O3E"
6070 IF INPUT$="v" THEN PLAY "O3F"
6080 IF INPUT$="b" THEN PLAY "O3G"
6090 IF INPUT$="n" THEN PLAY "O3A"
6100 IF INPUT$="m" THEN PLAY "O3B"
6120 IF ASC(INPUT$)=27 THEN 5000
6900 GOTO 5880
7000 GOSUB 9000
7010 PRINT "ģӢǵ,׽Ū.ÿʹҪǱ200Ԫ.";:INKEY$:CLEAR
7020 GOSUB 9060
7030 IF A<200 THEN 2230 ELSE 7040
7040 GOSUB 9610
7050 CLEAR:CLS
7060 PRINT "****  Ӣֵ  ****";
7070 LOCATE 4,1:PRINT "[F3]ع˲ѯ","[F4]ֿ";
7080 LOCATE 2,1:PRINT "Ӣ:";
7090 INPUT "";A$
7100 CLS:PRINT " ޴˴!";:INKEY$: GOTO 7050
8000 GOSUB 9000
8010 PRINT "ྫվ!";:INKEY$: GOTO 50
9000 CLS:PRINT "г";
9010 RETURN
9020 A$="LUCK."+CHR$(3)
9030 RETURN
9040 B$="MONEY."+CHR$(3)
9050 RETURN
9060 B$="MONEY."+CHR$(3)
9070 OPEN B$ FOR INPUT AS #1
9080 INPUT #1,A
9090 CLOSE #1
9092 RETURN
9100 A$="MONEY."+CHR$(3)
9105 OPEN A$ FOR APPEND AS #1:CLOSE #1
9110 OPEN A$ FOR INPUT AS #1
9120 IF EOF(1) THEN 9130 ELSE 10
9130 BEEP:PRINT "СHELP˵.";
9140 INKEY$
9150 END
9500 IF A=B OR A=C OR A=D OR A=E THEN 9600
9510 IF B=A OR B=C OR B=D OR B=E THEN 9600
9520 IF C=A OR C=B OR C=D OR C=E THEN 9600
9530 IF D=A OR D=B OR C=D OR D=E THEN 9600
9550 GOTO 322
9600 BEEP:CLS:PRINT "ֲظ!";:I$=INKEY$: GOTO 300
9610 B$="MONEY."+CHR$(3)
9620 OPEN B$ FOR OUTPUT AS #1
9630 WRITE #1,A
9640 CLOSE #1
9650 RETURN
9660 GOSUB 9000
9670 BEEP:PRINT "ȷ˳?(Y/N)"
9680 I$=INKEY$
9681 IF I$="y" THEN 9689 ELSE 50
9689 BEEP:GOSUB 9000
9690 PRINT ":Robert","QQ:54575779","ICQ:149639023","ӭ޸,Ƴ";
9700 INKEY$:CLEAR
9710 FOR I=1 TO 160 STEP +4
9720 LINE I,0,I,80
9730 NEXT I
9731 FOR I=1 TO 160 STEP +2
9732 LINE I,0,I,80
9742 NEXT I
9743 FOR I=1 TO 160
9744 LINE I,0,I,80
9745 NEXT I
9746 FOR I=1 TO 6160
9765 NEXT I
9775 GRAPH:END
